home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / pccwin.arc / PCC6.DCP < prev    next >
Encoding:
Text File  |  1991-07-25  |  38.3 KB  |  1,543 lines
  1. ;PCContact\Windows
  2. ;Release .96
  3. ;a Windows front end for PCContact
  4. ;by Paul Bonner
  5. ;
  6. ;Enhancements
  7. ;
  8. ;DONE
  9. ;beef up support for iconized operation DONE
  10. ;replace xmodem mail upload with standard ascii transfer DONE
  11. ;add "print" option to mail & message listboxes DONE
  12. ;shorten mail from field to 25 characters--replies go to # anyway DONE
  13. ;rearrange fields on message display--cut subject down to 25 chars DONE
  14. ;strip off "Reply to:" from mail subject's--substitute re: DONE
  15. ;fix new FILE scan--add date function--scan new doesn't work DONE
  16. ;fix tendency to forget account number and password DONE
  17. ;fix script's murderous behavior toward binary messages DONE
  18.  
  19. ;PLANNED
  20. ;add batch delete capability to mail & library screens
  21. ;add ability to send/receive binary files as mail messages
  22. ;add an address book
  23. ;add read/unread indicator to messages
  24. ;activate read/unread for mail
  25. ;break outgoing messages into 35 line chunks
  26. ;invert messages & mail tables before sending so they go out in right order
  27.  
  28.  
  29.  
  30. ;
  31. ;here we initialize variables
  32. ; 
  33. $memdir=system(0x0F01,"Memo")
  34. $datadir=system(0x0F01,"data")
  35. $setdir=system(0x0F01,"settings")
  36. set directory settings $setdir
  37. menu
  38. menu end
  39. screen hide
  40. fkeys hide
  41. load "PCC1.DCS" 
  42. set termtitle "PC/C On-Line"
  43. set binarytransfers xmodem
  44.  
  45. table define 11 TEXT "account.inf"
  46. record read 11
  47. set $name @r11
  48. record read 11
  49. set $pass @r11
  50. record read 11
  51. set $phone @r11
  52. record read 11
  53. set %mail num(@r11)
  54. record read 11
  55. set %files num(@r11)
  56. record read 11
  57. set %messages num(@r11)
  58. record read 11
  59. set %send num(@r11)
  60. record read 11
  61. set %upload num(@r11)
  62. record read 11
  63. set $downdir @r11
  64. record read 11
  65. set %sec0 num(@r11)
  66. record read 11
  67. set %sec1 num(@r11)
  68. record read 11
  69. set %sec2 num(@r11)
  70. record read 11
  71. set %sec3 num(@r11)
  72. record read 11
  73. set %sec4 num(@r11)
  74. record read 11
  75. set %sec5 num(@r11)
  76. record read 11
  77. set %sec6 num(@r11)
  78. record read 11
  79. set %sec7 num(@r11)
  80. record read 11
  81. set %sec8 num(@r11)
  82. record read 11
  83. set %lib0 num(@r11)
  84. record read 11
  85. set %lib1 num(@r11)
  86. record read 11
  87. set %lib2 num(@r11)
  88. record read 11
  89. set %lib3 num(@r11)
  90. record read 11
  91. set %lib4 num(@r11)
  92. record read 11
  93. set %oldlist num(@r11)
  94. table close 11
  95. table clear 11
  96.  
  97. ;
  98. ;next comes the opening dialog box
  99. ;
  100. *opener
  101. dialog (,,267,181) 
  102.   picture (76,3,,) "cbar1.bmp"
  103.   set directory data $datadir
  104.   groupbox (6,32,230,46) 'On-line' 
  105.   button (14,43,40,14) default 'AutoServe' perform script, resume
  106.   message (60,46,166,11) 'Automated processing of messages and files.'
  107.   button (14,59,40,14) 'Terminal' dialog cancel, perform interactive, resume
  108.   message (60,62,160,10) 'Standard Compuserve terminal session.'
  109.  
  110.   groupbox (6,85,230,79) 'Off-Line' 
  111.   button (14,96,40,14) 'Setup' perform setup, resume
  112.   message (60,99,150,10) 'Specify account and communication settings.'
  113.   button (14,112,40,14) 'Library' perform library, resume
  114.   message (60,115,147,9) 'Check out PC Contact file library listings.'
  115.   button (14,128,40,14) 'Mail' perform mail, resume
  116.   message (60,131,139,10) 'Read or compose personal mail.'
  117.   button (14,144,40,14) 'Forum' set %i 0, perform forum, resume
  118.   message (60,147,164,13) 'Read or compose public messages.'
  119.   iconbutton (238,112,,) Note "About" perform about, resume
  120.   iconbutton (238,152,,) STOP "Quit" set termtitle "Dynacomm", cancel
  121. dialog end
  122. wait resume
  123. goto opener
  124.  
  125. ;
  126. ;next is the logon routine for the standard terminal session
  127. ;
  128. *interactive
  129. title "CompuServe"
  130. menu cancel
  131. screen show
  132. fkeys show
  133. dial $phone
  134. if error() screen hide, fkeys hide, return
  135. *logloop
  136. send nocr "^c"
  137. when string 1 "ID" when cancel timer, resume
  138. when timer "2" goto logloop
  139. wait resume
  140. when cancel string
  141. send $name
  142. wait string "ord"
  143. wait quiet "1"
  144. perform decode
  145. send $pass
  146. perform encode
  147. cancel
  148.  
  149. ;
  150. ;next is the autoserve logon and session sequence
  151. ;
  152. *AutoServe
  153. dialog cancel
  154. title "PCContact\Windows"
  155. screen show
  156. dial $phone
  157. if error() screen hide, fkeys hide, return
  158. dialog (,8,150,47) 'AutoServe'
  159. set %screen 0
  160.   message (2,7,172,10) "Connecting to Compuserve"
  161.   button (47,25,48,12) '&Hide Session' increment %screen, if %screen > 1 set %screen 0, screen show, dialog update button (1) "Hide Session", else screen hide, dialog update button(1) "Show session"
  162.   button (6,25,35,12) '&Minimize' window minimize
  163.   button (101,25,35,12) '&Quit' goto logoff 
  164. dialog end
  165. *ll2
  166. send nocr "^c"
  167. when string 1 "ID" when cancel timer, resume
  168. when timer "2" goto ll2
  169. wait resume
  170. when cancel string
  171. send $name
  172. wait string "ord"
  173. wait quiet "1"
  174. perform decode
  175. send $pass
  176. perform encode
  177. set %newmail 0
  178. when string "waiting." set %newmail 1
  179. wait string "!"
  180. when cancel string
  181. ;check mail
  182. table define 1 fields char 30 char 38 char 12 file
  183. table load 1 from "outbox.dat" as dynacomm
  184. set %table 1
  185. set %num 0
  186. perform last_mess (%table, %num)
  187. if (%newmail =1 and %mail = 1) or (%num > 0 and %send = 1) send "Go Mail",
  188.    wait string "!"
  189. ;send mail
  190. if %num>0 and %send=1 perform d_update ("Sending mail"), perform send_mail
  191. table close 1
  192. table clear 1
  193. ;get mail
  194. if %newmail=1 and %mail=1 perform d_update("Retrieving mail"), perform get_mail
  195. ;link to pccontact
  196. perform d_update("Linking to PCContact"), send "go pccontact"
  197. when string "(Y or N)" send "N"
  198. wait string "Last"
  199. when cancel string
  200. ;download any files the user has specified
  201. table define 1 fields char 12 int 4 char 10 char 40 int 2 file
  202. table load 1 from "download.dat" as dynacomm
  203. set %num 0
  204. perform last_file (1,%num)
  205. wait quiet "1"
  206. if %files =1 or %num > 0 send "LIB"
  207. wait quiet "1"
  208. if %num>0 perform d_update("Downloading files"), perform download
  209. ;get list of new files
  210. if %files=1 perform d_update("Updating file list"), perform get_flist, perform lib_files
  211. table close 1
  212. table clear 1
  213. ;upload files
  214. table define 2 fields char 40 int 4 char 50 char 80 char 255 int 1 file
  215. table load 2 from "upload.dat" as dynacomm
  216. set %num 0
  217. perform last_file (2,%num)
  218. if %upload = 1 and %num > 0 send "lib", perform d_update("Uploading files"), perform sendfiles
  219. table close 2
  220. table clear 2
  221. ;get new forum messages
  222. if %messages = 1 perform d_update("Getting forum messages"), perform getmess
  223. ;send outgoing messages
  224. table define 1 fields char 2 char 35 char 24 int 2 char 12 char 6 file
  225. table load 1 from "messout.dat" as dynacomm  
  226. set %num 0
  227. perform last_pubmess ("pub0.dcm",%num)
  228. if %num > 0 and %send=1 perform d_update("Sending forum messages"), perform sendmess
  229. table close 1
  230. table clear 1
  231. ;log off
  232. perform d_update("Logging off"), send "off"
  233. wait string "time"
  234. hangup
  235. ;process forum messages offline
  236. perform d_update("Processing forum messages"), perform parse_mess
  237. menu
  238. menu end
  239. *logoff
  240. screen hide
  241. fkeys hide
  242. if connect() hangup
  243. dialog cancel
  244. return
  245.  
  246. ;
  247. ;routine for updating session status dialog box
  248. ;
  249. *d_update ($stat_mess)
  250. if iconic() return
  251. dialog update message 1  $stat_mess
  252. return
  253.  
  254. ;
  255. ;subroutines used to send public forum messages
  256. ;
  257. *sendmess
  258. send "mess"
  259. while %num > 0
  260. begin
  261. record read 1 at %num
  262. if trim(@r1.6) <> "" perform send_rep, goto jumpreply
  263. perform wait_send ("!","compose")
  264. wait string "/EX"
  265. $file=$memdir | @r1.5
  266. file send text $file
  267. set directory data $datadir
  268. wait delay "1"
  269. send ""
  270. send "/EXIT"
  271. perform wait_send ("!","1")
  272. perform wait_send (":",@r1.2)
  273. perform wait_send (":",@r1.3)
  274. perform wait_send ("!",@r1.4)
  275. perform wait_send ("N)","Y")
  276. perform wait_send ("!","")
  277. *jumpreply
  278. set %i %num, perform del_mess
  279. decrement %num
  280. end
  281. send "M"
  282. return
  283.  
  284. *del_mess
  285. table define 9 fields char 2 char 35 char 24 int 2 char 12 char 6 file
  286. table copy %table to 9
  287. record read 9 at %i
  288. if @r9="" return
  289. else set $file @r9.5
  290. file delete $memdir | $file
  291. set directory data $datadir
  292. table clear %table
  293. table copy 9 to %table exclude @r9
  294. table clear 9
  295. return
  296.  
  297. *send_rep
  298. send "reply"
  299. perform wait_send ("#",@r1.6)
  300. wait string "/EX"
  301. $file=$memdir | @r1.5
  302. file send text $file
  303. set directory data $datadir
  304. wait delay "1"
  305. send ""
  306. send "/EXIT"
  307. perform wait_send ("!","1")
  308. perform wait_send ("!","")
  309. return
  310. return
  311.  
  312. ;
  313. ;retrieve public forum messages
  314. ;
  315. *getmess
  316. send ""
  317. When string 1 "OPT", send "options", resume
  318. when string 2 "!" send ""
  319. when string 3 "Browse" send "m"
  320. wait resume
  321. when cancel string
  322. perform wait_send ("!","pause never")
  323. perform wait_send ("!","mess")
  324. perform wait_send (":","S")
  325. wait quiet "1"
  326. $sections=" sec:"
  327. perform bld_sect
  328. if length($sections)=5 file close, return
  329. send "read new" | $sections
  330. collect $junk
  331. file receive text $datadir | "rawmess.dat"
  332. when string "Press <CR> !" resume
  333. wait resume
  334. set directory memo $memdir
  335. set directory data $datadir
  336. file close
  337. return
  338.  
  339. *bld_sect
  340. if %sec0=1 $sections=$sections | "0,"
  341. if %sec1=1 $sections=$sections | "1,"
  342. if %sec2=1 $sections=$sections | "2,"
  343. if %sec3=1 $sections=$sections | "3,"
  344. if %sec4=1 $sections=$sections | "4,"
  345. if %sec5=1 $sections=$sections | "5,"
  346. if %sec6=1 $sections=$sections | "6,"
  347. if %sec7=1 $sections=$sections | "7,"
  348. if %sec8=1 $sections=$sections | "8"
  349. return
  350.  
  351. ;
  352. ;process forum messages
  353. ;
  354. *parse_mess
  355. table define 0 fields char 2 char 6 char 35 char 40 char 15 file
  356. table load 0 from "newmess.dat" as dynacomm
  357. perform last_file (0,0)
  358. set $file $datadir | "rawmess.dat"
  359. set directory memo $memdir
  360. table define 9 text $file
  361. record read 9
  362. *look
  363. if substr(@r9,1,1)= "#" perform found, perform close_tmp, return
  364. record read 9
  365. if eof() table close 9, return
  366. goto look
  367.  
  368. *close_tmp
  369. table close 8
  370. table close 9
  371. table close 0
  372. table clear 8
  373. table clear 9
  374. table clear 0
  375. file delete $datadir | "rawmess.dat"
  376. set directory memo $memdir
  377. return 
  378.  
  379. *found
  380. set %p pos(@r9," ",4)
  381. set $messnum substr(@r9,4,%p-4)
  382. set $messfile trim($messnum," "," ") | ".DCM"
  383. set %p1 pos(@r9,"/",%p)
  384. set $section substr(@r9,%p+2,%p1-1)
  385. table define 8 text $memdir | $messfile
  386. set directory data $datadir
  387. set @r8 trim(@r9," ", " ")
  388. record write 8
  389. record read 9
  390. set @r8 trim(@r9," ", " ")
  391. record write 8
  392. set $date substr(@r9,5,9)
  393. record read 9
  394. set @r8 trim(@r9," ", " ")
  395. record write 8
  396. set %p pos(@r9,"-")
  397. set $subject substr(@r9,%p+1)
  398. record read 9
  399. set $from substr(@r9,5)
  400. set @r8 trim(@r9," ", " ")
  401. record write 8
  402. set @r0.1 "  "
  403. set @r0.2 $messnum
  404. set @r0.3 $subject
  405. set @r0.4 $from
  406. set @r0.5 $section
  407. record write 0
  408. *reader
  409. record read 9
  410. if eof return
  411. if @r9="" goto reader
  412. if substr(@r9,1,12)="Press <CR> !" return
  413. if substr(@r9,1,1)="#" table close 8, goto found
  414. set @r8 trim(@r9," ", " ")
  415. record write 8
  416. goto reader
  417.  
  418.  
  419. ;
  420. ;forum messages dialog box
  421. ;
  422. *forum
  423. ;table define 0 $number $subject $from $section
  424. table define 0 fields char 2 char 6 char 35 char 40 char 15 file
  425. table load 0 from "newmess.dat" as dynacomm
  426. ;table define 1 $to $subject %section $file $repnum
  427. table define 1 fields char 2 char 35 char 24 int 2 char 12 char 6 file
  428. table load 1 from "messout.dat" as dynacomm
  429. table define 5 text "sorts.dat"
  430. set %del1 0
  431. set %del2 0
  432. set %i 0
  433.  
  434. *forum_dialog
  435. set %can 0
  436. set %forward 0
  437. set $repnum ""
  438. set %focus 1
  439. dialog (,,294,184) "Forum Messages"
  440.   listbox (5,41,284,56) 0 %i if %focus=2 perform for_switch1
  441.   listbox (5,115,284,40) 1 if %focus=1 perform for_switch2
  442.   message (5,28,186,10) 'Messages to read:'
  443.   message (6,102,84,11) 'Messages to send:'
  444.  
  445.   button (0,0,42,22) default '&Read' perform readpub, resume
  446.   button (42,0,42,22) '&New' perform compose_mess, resume
  447.   button (84,0,42,22) 'Repl&y' if %focus=1 perform reply_mess, resume
  448.   button (126,0,42,22) '&Print' set %i listbox(%focus), set %table %focus-1, perform printmess, resume
  449.   button (168,0,42,22) '&Forward' if %focus=1 set %forward 1, set %i listbox(1), record read 0 at %i, set $forfile trim(@r0.2) | ".DCM", perform compose_mess, set %forward 0, resume
  450.   button (210,0,42,22) '' ;resume ;"Mark"
  451.   button (252,0,42,22) 'Mark &Del.' set %table %focus-1, set %active %focus, set %i listbox(%focus), perform mark_del
  452.   button (80,159,145,22) 'Re&turn to Menu' perform close_mess, if %can=1 resume, else return
  453.  
  454.  
  455. listbox (202,27,64,44) 5 0 COMBOBOX if %focus= 1 set %table 0, perform sort
  456. message (167,28,34,10) 'Sort by:'
  457. dialog end
  458. wait resume
  459. goto forum_dialog
  460.  
  461. *close_mess
  462. if %del1 > 0 or %del2 > 0 perform ask_del
  463. if %can=1 return 
  464. table close 0
  465. table close 1
  466. table clear 0
  467. table clear 1
  468. table close 5
  469. table clear 5
  470. return
  471.  
  472. ;
  473. ;confirm batch delete of marked messages
  474. ;
  475. *ask_del
  476. %tdel=%del1 + %del2
  477. Dialog (,,180,) "Message Delete"
  478. icon (,12,,) caution
  479. if %tdel > 1 $m1=" messages are ", $m2 = " them now?", else $m1=" message is ", $m2= " it now?"
  480. Message (,12,,) str(%tdel) | $m1 | "marked for deletion."
  481. Message "Okay to delete" | $m2
  482. Button (30,,,11) default "Yes" resume
  483. button (70,,,11) "No" dialog cancel, perform clear_del, return
  484. button (110,,,11) cancel "Cancel" set %can 1, return
  485. dialog end
  486. wait resume
  487. perform batch_del
  488. dialog cancel
  489. return
  490.  
  491. ;
  492. ;activate new listbox
  493. ;
  494. *for_switch1
  495. dialog update listbox(2) table 1, set %focus 1
  496. dialog update button 3 "Repl&y"
  497. dialog update button 5 "&Forward"
  498. return
  499.  
  500. *for_switch2
  501. dialog update listbox(1) table 0, set %focus 2
  502. dialog update button 3 ""
  503. dialog update button 5 ""
  504. return
  505.  
  506. ;
  507. ;message handling routines
  508. ;
  509. *printmess
  510. record read %table at %i
  511. if %table=0 set $file trim(@r0.2) | ".DCM",
  512. else set $file @r1.5
  513. print file $memdir | $file
  514. set directory data $datadir
  515. return
  516.  
  517.  
  518. *readpub
  519. set %i listbox(%focus) 
  520. record read %focus-1 at %i 
  521. if %focus=1 set $file trim(@r0.2) | ".DCM", set memotitle trim(@r0.4) | "-" | trim(@r0.3) | "-" | $file, else
  522. if @r1 = "" resume, else set $file @r1. 5, set memotitle trim(@r1.2) | "-" | trim(@r1.3) | "-" | $file 
  523. dialog cancel
  524. perform editor ($file)
  525. return
  526.  
  527.  
  528. *reply_mess
  529. set %i listbox(1)
  530. record read 0 at %i
  531. set $subject @r0.3
  532. set $to @r0.4
  533. set $section @r0.5
  534. set %pos pos($section,"/")
  535. set $section substr($section,1,%pos-1)
  536. set %section num($section)
  537. set $repnum @r0.2
  538. dialog cancel
  539. perform compose_mess
  540. set $repnum "" 
  541. return
  542.  
  543.  
  544. *sort
  545. set %sort listbox(3)
  546. if %sort=0 return
  547. increment %sort
  548. table sort %table %sort
  549. dialog update listbox %focus table %table 0
  550. dialog update listbox 3 table 5 0
  551. return
  552.  
  553.  
  554. *compose_mess
  555. set %num 0
  556. $file="pub000.dcm"  
  557. perform last_pubmess ($file, %num)
  558. increment %num
  559. $file="pub" | str(%num) | ".dcm"  
  560. if %forward = 1 set $old_file $forfile, else set $old_file "new.dcm"
  561. file copy $memdir | $old_file $memdir | $file
  562. set directory data $datadir
  563. if $repnum<> "" goto skip1
  564. set $to "Enter addressee here"
  565. set $subject "Enter subject here"
  566. set %section 0
  567. *skip1
  568. set %cancel 0
  569. perform address_mess ($to, $subject, %section)
  570. if %cancel=1 set %cancel 0, return
  571. set memotitle $to | "-" | $subject | "-" | $file 
  572. dialog cancel
  573. perform editor ($file)
  574. return
  575.  
  576. ;
  577. ;find last forum message
  578. ;
  579. *last_pubmess ($file, %num)
  580.  record read 1 at 0
  581.    while not eof
  582.    begin     
  583.    record read 1
  584.    end
  585.   $file=@r1.5
  586.   $file=trim($file,"pub",".DCM")
  587.    %num=num($file)
  588.    return
  589.  
  590. *address_mess ($to, $subject, %section)
  591. table define 9 text "section.dat"
  592.  dialog (,,216,103) 'Post Message'
  593.   message (13,9,27,10) 'Section:'
  594.   listbox (44,7,99,62) 9 %section COMBOBOX 
  595.   message (10,32,30,10) 'Post for:'
  596.   edittext (44,31,115,12) 115 ''  trim($to)
  597.   button (166,30,40,14) 'Sysop' dialog update edittext(1) "76000,21"
  598.   message (12,53,29,10) 'Subject:' 
  599.   edittext (44,52,115,12) 115 ''  $subject limit 24
  600.   button (42,79,40,14) default 'Okay' resume
  601.   button (132,78,40,14) cancel 'Cancel' dialog cancel, set %cancel 1, return
  602. dialog end
  603. wait resume
  604. set $to edittext (1), set @r1.2 $to
  605. set $subject edittext (2), set @r1.3 $subject
  606. set @r1.4 str(listbox(1))
  607. set @r1.5 $file
  608. set @r1.6 $repnum
  609. record write 1
  610. dialog cancel
  611. return
  612.  
  613. ;
  614. ;message deletion routines
  615. ;
  616.  
  617. ;*del_mess
  618. ;goto mark_del
  619. ;return
  620.  
  621. *clear_del
  622. set %loopnum 0
  623. perform cd2
  624. set %loopnum 1
  625. perform cd2
  626. return
  627.  
  628. *cd2
  629.  
  630.    if %loopnum=0 and %del1 < 1 return
  631.    if %loopnum=1 and %del2 <1 return
  632.    set %i 0 
  633.    record read %loopnum at %i
  634.    while not eof
  635.    begin     
  636.    record read %loopnum at %i
  637.    if %loopnum=0 and @r0.1="D " set @r0.1 "  ", record write 0 at %i
  638.    if %loopnum=1 and @r1.1="D " set @r1.1 "  ", record write 1 at %i 
  639.    increment %i
  640.    end
  641.    return
  642.  
  643.  
  644. *batch_del
  645. %loopnum=0
  646. perform bd1
  647. %loopnum=1 
  648. perform bd1
  649. return
  650.  
  651. *bd1
  652.    if %loopnum=0 and %del1=0 return
  653.    if %loopnum=1 and %del2=0 return
  654.    set %i 0 
  655.    record read %loopnum at %i
  656.    while not eof
  657.    begin     
  658.    record read %loopnum
  659.    increment %i
  660.    if @r(%loopnum).1="D " perform del_one
  661.    end    
  662.    perform bd2
  663.    dialog cancel
  664.    return
  665.  
  666. *bd2
  667.    set $exclude "D "
  668.    table define 9 fields char 2 char 6 char 35 char 40 char 15 file
  669.    table copy %loopnum to 9 
  670.    table clear %loopnum    
  671.    table copy 9 to %loopnum EXCLUDE $exclude
  672.    table clear 9
  673.    return
  674.  
  675. *del_one
  676. if %loopnum=0 set $file trim(@r0.2) | ".DCM" , else set $file trim(@r1.5) 
  677.  ; dialog "Batch Delete"
  678.  ; message "loopnum " | str(%loopnum)
  679.  ; message "file " | $file
  680.  ; message "memdir" | $memdir  
  681.  ; message "Deleting " | $memdir | $file | "."
  682.  ; button "Ok" resume
  683.  ; button "cancel" dialog cancel, cancel
  684.  ; dialog end
  685.  ; wait resume
  686. ;dialog cancel
  687. file delete $memdir | $file
  688. set directory data $datadir
  689. return
  690.  
  691.  
  692. *mark_del
  693. record read %table at %i
  694. switch str(%table)
  695. case str(0)
  696. if @r0.1="D " set @r0.1 "  ", decrement %del1, else set @r0.1 "D ", increment %del1
  697. leave
  698. case str(1)
  699. if @r1.1="D " set @r1.1 "  ", decrement %del2, else set @r1.1 "D ", increment %del2
  700. leave
  701. switch end
  702. record write %table at %i
  703. increment %i
  704. dialog update listbox(%active) table %table %i
  705. return
  706.  
  707. ;
  708. ;routines for uploading files to pccontact
  709. ;
  710.  
  711. *sendfiles
  712. perform wait_send ("!","0")
  713. while %num > 0
  714. begin
  715. record read 2 at %num
  716. perform wait_send ("!","UPLOAD /prot:xmodem")
  717. set $fname @r2.1,
  718. perform trim_name
  719. perform wait_send ("name:",$fname)
  720. when string 1 "You must" goto backdoor
  721. when string 2 "choice" resume
  722. when string 3 "Replace" send "n", goto backdoor
  723. wait resume
  724. send @r2.6
  725. wait string "plete"
  726. set binarytransfers xmodem
  727. file send binary @r2.1
  728. set directory data $datadir
  729. send ""
  730. when string 1 "<CR>" send ""
  731. when string 2 "!" resume
  732. when string 3 "/EXIT" resume
  733. when string 4 "Resuming" when cancel string, goto backdoor
  734. wait resume
  735. when cancel string
  736. $tmp=@r2.5
  737. while length($tmp)>50
  738. begin
  739. $tmp1=substr($tmp,1,50)
  740. $tmp=substr($tmp,51,)
  741. %pos=pos($tmp," ")
  742. $tmp1=$tmp1 | substr($tmp,1,%pos)
  743. $tmp=substr($tmp,%pos)
  744. send trim($tmp1," "," ")
  745. wait delay "1"
  746. end
  747. send $tmp
  748. send "/EXIT"
  749. perform wait_send (":",@r2.4)
  750. perform wait_send ("ished",@r2.3)
  751. perform wait_send ("okay","Y")
  752. perform wait_send ("CR","")
  753. set %table 2
  754. set %i %num
  755. perform del_lib
  756. *backdoor
  757. decrement %num
  758. end
  759. return
  760.  
  761. *trim_name
  762. %p1=pos($fname,"\")
  763. if %p1=0 return
  764. increment %p1
  765. $fname=substr($fname,%p1,40-%p1)
  766. goto trim_name
  767.  
  768.  
  769. ;
  770. ;routine for downloading files from pccontact
  771. ;
  772.  
  773. *download
  774. while %num > 0
  775. begin
  776. ;table define 1 fields name size date desc  lib
  777. record read 1 at %num
  778. set $fname trim(@r1.1)
  779. set $lib @r1.5
  780. send $lib
  781. perform wait_send ("!","DOWN "| $fname | " /prot:xmodem")
  782. wait string "<CR>"
  783. set binarytransfers xmodem
  784. file receive binary $downdir | $fname 
  785. set directory data $datadir
  786. send ""
  787. when string 1 "<CR>" send ""
  788. when string 2 "choice" send "lib", resume
  789. wait resume
  790. when cancel string
  791. set %table 1
  792. set %i %num
  793. perform del_lib
  794. decrement %num
  795. end
  796. return
  797.  
  798. ;
  799. ;routines for retrieving new file lists
  800. ;
  801.  
  802. *get_flist
  803. ;get number of days since last file listing was retrieved
  804. set %secs1 seconds(,date())
  805. if %oldlist=0 %oldlist=-1544336896
  806. set %secs2 %oldlist + 86400
  807. %days=(%secs1-%secs2)/(3600*24)
  808. if %days < 0 %days=1
  809. $days = str(%days)
  810. ;now we start the scan
  811. set %lib 0
  812. while %lib < 5
  813. begin
  814. when quiet "2" send "", resume
  815. when string "!" resume
  816. wait resume
  817. when cancel 
  818. if %lib=0 %check=%lib0, 
  819. else if %lib=1 %check=%lib1, 
  820. else if %lib=2 %check=%lib2,
  821. else if %lib=3 %check=%lib3,
  822. else if %lib=4 %check=%lib4
  823. if %check=0 send "", goto skiplib
  824. send "lib "|str(%lib)
  825. wait quiet "2"
  826. CLEAR
  827. send "scan days:" | $days |" /short"
  828. collect $junk
  829. collect $junk
  830. if substr($junk,1,2) <> "No" perform get_em, send ""
  831. ;perform wait_send ("!","m")
  832. *skiplib
  833. increment %lib
  834. end
  835. table close 0
  836. table clear 0
  837. return
  838.  
  839. *get_em
  840. wait quiet "1"
  841. selection buffer
  842. selection save $datadir | 
  843. "Lib" | str(%lib) |".DAT"
  844. set directory memo $memdir
  845. return
  846.  
  847. *lib_files
  848. set %lib 0 
  849. table define 0 fields char 12  int 4 char 10 char 40 int 2 file
  850. table load 0 from "library.dat" as dynacomm
  851. set %count 0
  852. perform last_file (0,%count)
  853. while %lib < 5
  854. begin
  855. table define 9 text "Lib" | str(%lib) |".DAT"
  856. record read 9 at 0
  857. set $junk @r9
  858. record read 9
  859. set $junk @r9
  860. record read 9
  861. set $junk @r9
  862. perform files_loop
  863. table close 9
  864. table clear 9
  865. file delete "Lib" | str(%lib) |".DAT"
  866. increment %lib
  867. end
  868. set %oldlist seconds(,date())
  869. perform saveall
  870. return
  871.  
  872. *files_loop
  873. record read 9
  874. if eof return
  875. set $junk @r9
  876. if substr($junk,1,1)=" " or $junk="" or substr($junk,1,4)="scan"  or substr($junk,1,4)="Pres" goto files_loop
  877. parse $junk $fname "/" $junk
  878. parse $junk $junk1 "   " $junk
  879. parse $junk $size "K" $junk
  880. set $date " " |  substr($junk, 2,9)
  881. set $des substr($junk,11,40)
  882. set @r0.1 $fname
  883. set @r0.5 str(%lib)
  884. set @r0.2 $size
  885. set @r0.3 $date
  886. set @r0.4 $des
  887. ;set @r0.6 str(seconds(,date()))
  888. record write 0
  889. goto files_loop
  890.  
  891. ;
  892. ;routine for sending email
  893. ;
  894.  
  895. *send_mail
  896. while %num > 0
  897. begin
  898. record read 1 at %num
  899. set $to @r1.1
  900. set $subject @r1.2
  901. set $file @r1.3
  902. send "compose"
  903. wait string "done)"
  904. file send text $file
  905. set directory data $datadir
  906. when quiet "1" send "", send "/EXIT"
  907. when string "!" send "1", resume
  908. wait resume
  909. when cancel 
  910. wait delay "1"
  911. send $to
  912. when string "Invalid" send "", send "", decrement %num, when cancel string, goto endloop
  913. perform wait_send (":", $subject)
  914. perform wait_send ("!", "y")
  915. perform wait_send ("!", "")
  916. set %i %num, set %table 1
  917. perform del_let
  918. decrement %num
  919. *endloop
  920. end
  921. return
  922.  
  923. ;
  924. ;routines for retrieving email
  925. ;
  926.  
  927. *name_new_mail
  928. increment %count
  929. set $file "LET" | str(%count) | ".DCM"
  930. if exists($memdir|$file) goto name_new_mail
  931. set directory data $datadir
  932. return
  933.  
  934. *get_mail
  935. table define 0 fields char 1 char 1 char 25 char 12 char 9 char 25 char 12 file
  936. table load 0 from "mail.dat" as dynacomm
  937. set %count 0
  938. perform last_mess (0,%count)
  939. set $file ""
  940. perform name_new_mail
  941. send "set page no"
  942. perform wait_send ("!", "Read")
  943. when string 1 "ALL" perform wait_send ("!", "0"), resume
  944. when string 2 "e:" resume
  945. wait resume
  946. when cancel string
  947. file receive text $file
  948. perform get_let
  949. *next_letter
  950. perform name_new_mail
  951. file receive text $file
  952. set %cancel 0
  953. perform get_let
  954. if %cancel=1 return
  955. goto next_letter
  956.  
  957. *get_let
  958. set %binmess 0
  959. when string 1 "No mail" perform end_lets, return
  960. when string 2 "CompuServe Mail  Main Menu" perform end_lets, return
  961. when string 3 "is Binary" set %binmess 1
  962. when quiet "2" send ""
  963. wait string "m:"
  964. collect $from
  965. collect $subject
  966. wait string "<CR>"
  967. when cancel 
  968. file close
  969. set @r0.1 " " ; set to "*" to denote unread 
  970. set @r0.2 " " ; set to ">" to denote incoming 
  971. set $sname $from
  972. set %p pos($sname,"[")
  973. set $sname substr($sname,1,%p-1)
  974. set $sname substr($sname,1,25)
  975. set @r0.3 trim($sname," "," ")
  976. set $num $from
  977. set %p1 pos($num,"]")
  978. increment %p
  979. set @r0.4 substr($num,%p,%p1-%p)
  980. set $date date()
  981. set @r0.5 $date
  982. %cpos=pos($subject,":")
  983. $subject=substr($subject,%cpos+2,25)
  984. *ch
  985. if substr($subject,1,1)=" " $subject = substr($subject,2), goto ch
  986. set @r0.6 $subject
  987. set @r0.7 $file
  988. record write 0
  989. if %binmess=0 send "Del", else send ""
  990. return
  991.  
  992. *end_lets
  993. file close
  994. file delete $memdir | $file
  995. set directory data $datadir
  996. table close 0
  997. table clear 0
  998. set %cancel 1
  999. return
  1000.  
  1001.  
  1002. ;
  1003. ;standard wait prompt/send response routine
  1004. ;
  1005.  
  1006. *wait_send ($prompt,$response)
  1007. wait string $prompt
  1008. send $response
  1009. return
  1010.  
  1011. ;
  1012. ;dialog for composing autoserve script
  1013. ;
  1014.  
  1015. *script
  1016. dialog (,,190,123) 'AutoServe Script'
  1017.   checkbox (17,15,81,11) %mail 'Collect new &mail.' 
  1018.   checkbox (17,32,105,11) %messages 'Collect new &forum messages.' 
  1019.   checkbox (17,49,107,11) %send "&Send mail and messages."
  1020.   checkbox (17,66,107,11) %files '&Collect a list of new files.' 
  1021.   checkbox (17,83,180,11) %upload "Se&nd files to PCContact files library."
  1022.   button (30,104,40,14) default '&Okay' resume
  1023.   button (80,104,40,14) cancel 'Cance&l' dialog cancel, return
  1024.   button (130,104,40,14) "O&ptions" perform script_opt, goto script
  1025. dialog end
  1026. wait resume
  1027. %mail=checkbox(1)
  1028. %messages=checkbox(2)
  1029. %files=checkbox(4)
  1030. %send=checkbox(3)
  1031. %upload=checkbox(5)
  1032. perform saveall
  1033. perform autoserve
  1034. return
  1035.  
  1036.  
  1037. *script_opt
  1038. dialog (,,182,180) 'Script Options'
  1039. message (19,2,149,10) 'Select sections and libraries to check.'
  1040. groupbox (5,11,171,79) 'Forum Sections' 
  1041.   checkbox (14,22,76,12) %sec0 'General Information' 
  1042.   checkbox (14,35,75,12) %sec1 'Letters/Comments' 
  1043.   checkbox (14,48,75,12) %sec2 'Columns/Opinion' 
  1044.   checkbox (14,61,50,12) %sec3 'NEW!' 
  1045.   checkbox (14,74,70,12) %sec4 'Prime Time' 
  1046.   checkbox (96,22,50,12) %sec5 'Features' 
  1047.   checkbox (96,35,50,12) %sec6 'HELP' 
  1048.   checkbox (96,48,77,12) %sec7 "Consumer's Edge" 
  1049.   checkbox (96,61,64,12) %sec8 "Off the Record"
  1050. groupbox (5,94,171,55) 'File Libraries' 
  1051.   checkbox (14,106,80,12) %lib0 'General / Forum Info.' 
  1052.   checkbox (14,119,76,12) %lib1 'Hot Tips/Secrets' 
  1053.   checkbox (14,132,75,12) %lib2 'Templates/Macros' 
  1054.   checkbox (96,106,77,12) %lib3 'Utilities/Misc.' 
  1055.   checkbox (96,119,78,12) %lib4 'Files by Month'
  1056.  
  1057. button (40,156,40,14) default '&Okay' resume
  1058. button (101,156,40,14) cancel 'Cance&l' dialog cancel, return
  1059. dialog end
  1060. wait resume
  1061. set %sec0 checkbox(1)
  1062. set %sec1 checkbox(2)
  1063. set %sec2 checkbox(3)
  1064. set %sec3 checkbox(4)
  1065. set %sec4 checkbox(5)
  1066. set %sec5 checkbox(6)
  1067. set %sec6 checkbox(7)
  1068. set %sec7 checkbox(8)
  1069. set %sec8 checkbox(9)
  1070. set %lib0 checkbox(10)
  1071. set %lib1 checkbox(11)
  1072. set %lib2 checkbox(12)
  1073. set %lib3 checkbox(13)
  1074. set %lib4 checkbox(14)
  1075. dialog cancel
  1076. return
  1077.  
  1078. ;
  1079. ;email dialog box
  1080. ;
  1081.  
  1082. *mail
  1083. ;define desk with read to/from name number date sub filename
  1084. table define 0 fields char 1 char 1 char 25 char 12 char 9 char 25 char 12 file
  1085. table load 0 from "mail.dat" as dynacomm
  1086. ;define outbox with name or number  subject  filename
  1087. table define 1 fields char 30 char 38 char 12 file
  1088. table load 1 from "outbox.dat" as dynacomm
  1089. set %i 0
  1090.  
  1091. *mail_dialog
  1092. set %forward 0
  1093. set $repnum ""
  1094. set %focus 1
  1095. dialog (,,294,184) "Personal Mail"
  1096.   listbox (5,41,284,56) 0 %i if %focus=2 perform switch1
  1097.   listbox (5,115,284,40) 1 if %focus=1 perform switch2
  1098.   message (5,28,186,10) 'Mail to read:'
  1099.   message (6,102,84,11) 'Mail to send:'
  1100.  
  1101.   button (0,0,42,22) default '&Read' set %i listbox(%focus), set %table %focus-1, perform read, resume
  1102.   button (42,0,42,22) '&New' perform compose, resume
  1103.   button (84,0,42,22) 'Repl&y' if %focus=1 perform reply, resume
  1104.   button (126,0,42,22) '&Print' set %i listbox(%focus), set %table %focus-1, perform printmail, resume
  1105.   button (168,0,42,22) '&Forward' if %focus=1 perform forward, resume
  1106.   button (210,0,42,22) "" ;resume '&Attach
  1107.   button (252,0,42,22) '&Erase' set %i listbox(%focus), set %table %focus-1, perform del_let, set %active %table, perform up_list
  1108. ;iconbutton (8,158,,) "_Note" "&Mark (6)"     
  1109. ;iconbutton (240,158,,) "_caution" "&Clear Marks"
  1110. button (80,159,145,22) 'Re&turn to Menu' table close 0, table close 1, table clear 0, table clear 1, return
  1111. ;listbox (202,27,64,24) 0 COMBOBOX 
  1112. ;message (167,28,34,10) 'Sort by:'
  1113. dialog end
  1114. wait resume
  1115. goto mail_dialog
  1116.  
  1117. *switch1
  1118. dialog update listbox(2) table 1
  1119. dialog update button 6 ""
  1120. dialog update button 3 "Repl&y"
  1121. dialog update button 5 "&Forward"
  1122. set %focus 1
  1123. return
  1124.  
  1125.  
  1126. *switch2
  1127. dialog update listbox(1) table 0
  1128. dialog update button 6 "" ; "&Attach"
  1129. dialog update button 3 ""
  1130. dialog update button 5 ""
  1131. set %focus 2
  1132. return
  1133.  
  1134. ;
  1135. ;mail handling routines
  1136. ;
  1137.  
  1138. *printmail
  1139. record read %table at %i
  1140. if %table=0 set $file @r0.7, else set $file @r1.3
  1141. print file $memdir| $file 
  1142. set directory data $datadir
  1143. return
  1144.  
  1145. *forward
  1146. set %i listbox(1)
  1147. record read 0 at %i
  1148. set $old_file @r0.7
  1149. set $subject @r0.5
  1150. set $add_title "Forward Message"
  1151. goto ready_add
  1152.  
  1153. *compose
  1154. set $old_file "new.dcm"
  1155. set $subject "Subject of message"
  1156. set $add_title "Compose Mail"
  1157.  
  1158. *ready_add
  1159. set $to ""
  1160. set %cancel 0
  1161. perform address ($to, $subject, $add_title, %cancel)
  1162. if %cancel=1 return
  1163. perform create_mess ($to, $subject, $old_file)
  1164. return
  1165.  
  1166. *address ($to, $subject, $add_title, %cancel)
  1167. dialog (116,73,146,83) $add_title
  1168.   edittext (19,12,101,12) 101 ''  "Addressee's name or ID #."
  1169.   edittext (18,33,103,12) 103 ''  $subject
  1170.   button (11,54,40,14) default 'Okay' resume
  1171.   button (92,55,40,14) cancel 'Cancel' dialog cancel, set %cancel 1, return
  1172. dialog end
  1173. wait resume
  1174.   set $To edittext(1)
  1175.   set $subject edittext(2)
  1176. dialog cancel
  1177. return
  1178.  
  1179.  
  1180. *del_let
  1181. if %table=0 table define 9 fields char 1 char 1 char 25 char 12 char 9 char 25 char 12 file,
  1182. else table define 9 fields char 30 char 38 char 12 file
  1183. table copy %table to 9
  1184. record read 9 at %i
  1185. if %table=0 set $file @r9.7, else set $file @r9.3
  1186. file delete $memdir | $file
  1187. set directory data $datadir
  1188. table clear %table
  1189. table copy 9 to %table exclude @r9
  1190. table clear 9
  1191. return
  1192.  
  1193. *up_list
  1194. if %active=0 dialog update listbox 1 table 0  %i, dialog update listbox 2 table 1
  1195. else dialog update listbox 1 table 0, dialog update listbox 2 table 1 %i
  1196. return
  1197.  
  1198. *up_flist
  1199. if %active=0 dialog update listbox 1 table 0  %i, dialog update listbox 2 table 1, dialog update listbox 3 table 2
  1200. else if %active=1 dialog update listbox 1 table 0, dialog update listbox 2 table 1 %i, dialog update listbox 3 table 2
  1201. else dialog update listbox 1 table 0, dialog update listbox 2 table 1, dialog update listbox 3 table 2  %i
  1202. return
  1203.  
  1204. *read
  1205. record read %table at %i
  1206. if %table=0 set $file @r0.7, else set $file @r1.3
  1207. dialog cancel
  1208. set memotitle $file 
  1209. perform editor ($file)
  1210. return
  1211.  
  1212. *editor ($file)
  1213. menu cancel
  1214. menu
  1215. popup "&File" System 1
  1216. popup "&Edit" System 2
  1217. popup "&Search" System 3
  1218. menu end
  1219. wait edit $memdir | $file 
  1220. set directory data $datadir
  1221. menu
  1222. menu end
  1223. return
  1224.  
  1225.  
  1226. *create_mess ($to,$subject,$old_file)
  1227. set %count 0
  1228. perform last_mess (1,%count)
  1229. set $file "OUT" | str(%count+1) | ".DCM"
  1230. file copy $memdir | $old_file $memdir | $file
  1231. set directory data $datadir
  1232. set @r1.1 $to
  1233. set @r1.2 $subject
  1234. set @r1.3 $file 
  1235. record write 1
  1236. set memotitle $to | "-" | $subject | "-" | $file 
  1237. dialog cancel
  1238. perform editor ($file)
  1239. return
  1240.  
  1241. *reply
  1242. record read 0 at listbox(1)
  1243. if @r0.7="" return
  1244. set %count 0
  1245. perform last_mess (1,%count)
  1246. set @r1.1 @r0.4
  1247. set @r1.2 @r0.6
  1248. set $file "OUT" | str(%count+1) | ".DCM"
  1249. set @r1.3 $file
  1250. record write 1
  1251. ;dialog
  1252. ;message $memdir | "new.dcm"
  1253. ;button "okay" resume
  1254. ;dialog end
  1255. ;wait resume
  1256. file copy $memdir | "new.dcm" $memdir | $file
  1257. set directory data $datadir
  1258. set memotitle trim(@r1.1) | "-" | trim(@r1.2) | "-" | $file 
  1259. dialog cancel
  1260. perform editor ($file)
  1261. return
  1262.  
  1263. *last_mess (%table, %num)
  1264.    record read %table at 0
  1265.    while not eof
  1266.    begin     
  1267.    record read %table
  1268.    end
  1269.    if %table=0 $file=@r0.7, $file=trim($file,"LET",".DCM"),
  1270.    else $file=@r1.3, $file=trim($file,"OUT",".DCM")
  1271.    %num=num($file)
  1272.    return
  1273.  
  1274. *last_file (%table, %num)
  1275.    record read %table at 0
  1276.    while not eof
  1277.    begin     
  1278.    record read %table
  1279.    increment %num
  1280.    end
  1281.    return
  1282.  
  1283. ;
  1284. ;file library dialog
  1285. ;
  1286.  
  1287. *library
  1288. ;table define 0 fields name size date desc  lib
  1289. table define 0 fields char 12 int 4 char 10 char 40 int 2 file
  1290. table load 0 from "library.dat" as dynacomm
  1291. table define 1 fields char 12 int 4 char 10 char 40 int 2 file
  1292. table load 1 from "download.dat" as dynacomm
  1293. ;table define 2 fields name size title key des type
  1294. table define 2 fields char 40 int 4 char 50 char 80 char 255 int 1 file
  1295. table load 2 from "upload.dat" as dynacomm
  1296. set %i 0
  1297. set %focus 1
  1298.  
  1299. dialog (,,294,188) 'PC Contact Library'
  1300.  
  1301.  button (0,0,98,16) default '&Download File' if %focus=1 set %i listbox(1), perform move_down, set %active 0, perform up_flist
  1302.  button (98,0,98,16)  '&Upload a File' set %focus 3, set %table 2, perform up_load, set %active 2, resume
  1303.  button (196,0,98,16) '&Cut' set %i listbox(%focus), set %table %focus-1, perform del_lib, set %active %table, perform up_flist
  1304.  
  1305. Message (4,20,,) 'Files Available' 
  1306.   listbox (4,32,286,60) 0 %i if %focus <> 1 perform foc1
  1307. Message (4,88,,)  'Download list' 
  1308.   listbox (4,100,286,24) 1 if %focus <> 2 perform foc2
  1309. Message (4,128,,) 'Upload list' 
  1310.   listbox (4,140,286,24) 2 if %focus <> 3 perform foc3
  1311.  
  1312. button (80,167,145,16) 'Re&turn to Menu' dialog cancel, table close 0, table close 1, table clear 0, table clear 1, return
  1313. dialog end
  1314. wait resume
  1315. dialog cancel
  1316. table close 0
  1317. table close 1
  1318. table close 2
  1319. table close 9
  1320. goto library
  1321.  
  1322. *foc1
  1323. dialog update button(1) "&Download File"
  1324. if %focus=2 dialog update listbox(2) table 1, set %focus 1, else dialog update listbox(3) table 2, set %focus 1
  1325. return
  1326.  
  1327. *foc2
  1328. dialog update button(1) ""
  1329. if %focus=1 dialog update listbox(1) table 0, set %focus 2, else dialog update listbox(3) table 2, set %focus 2
  1330. return
  1331.  
  1332. *foc3
  1333. dialog update button(1) ""
  1334. if %focus=2 dialog update listbox(2) table 1, set %focus 3, else dialog update listbox(1) table 0, set %focus 3
  1335. return 
  1336.  
  1337. ;
  1338. ;file upload dialog box
  1339. ;
  1340.  
  1341. *up_load
  1342. dialog cancel
  1343. File openname $upfile TYPE "*.*" Default "Select file to upload!"
  1344. if error() return
  1345. if $upfile = "Select file to upload!" return
  1346. set directory data $datadir
  1347. $title='Enter a title for this file'
  1348. $des='Enter description of file'
  1349. $key='Enter keywords separated by spaces'
  1350. *upload_dlg
  1351. dialog (,,244,159) "Upload: " | $upfile
  1352. table define 9 text "types.dat"
  1353. message (4,8,,) 'Select transfer type:' 
  1354. listbox (74,6,,58) 9 1 combobox 
  1355.   message (4,36,19,10) 'Title:'
  1356.    edittext (24,33,208,12)  ''  $title LIMIT 50
  1357.   edittext (10,58,210, 44)  ''  $des 
  1358.  edittext (39,115,190,12)  ''  $key
  1359.   message (3,116,34,10) "Keywords:" 
  1360.   button (46,138,40,14) default 'Okay' resume
  1361.   button (175,137,40,14) cancel 'Cancel' dialog cancel, return
  1362. dialog end
  1363. wait resume
  1364. set $title edittext(1)
  1365. if $title='Enter a title for this file' goto upload_dlg
  1366. set $des edittext(2)
  1367. if $des= 'Enter description of file' set $des ""
  1368. set $key edittext(3)
  1369. if $key = 'Enter keywords separated by spaces' set $key ""
  1370. set %type listbox(1) + 1
  1371. set %table 2
  1372. set %count 0
  1373. perform last_file (%table,%count)
  1374. set @r2.1 $upfile
  1375. set %size filesize($upfile)
  1376. set %size int(%size/1024)
  1377. if %size=0 %size=1
  1378. set @r2.2 str(%size)
  1379. set @r2.3 " " | $title
  1380. set @r2.4 $key
  1381. set @r2.5 $des
  1382. set @r2.6 str(%type)
  1383. record write 2 
  1384. dialog cancel
  1385. return
  1386.  
  1387. ;
  1388. ;file list handling routines
  1389. ;
  1390.  
  1391. *move_down
  1392. perform last_file (1,0)
  1393. record read 0 at %i
  1394. set @r1 @r0
  1395. record write 1
  1396. return
  1397.  
  1398. *del_lib
  1399. if %table=2 table define 9 fields char 40 int 4 char 50 char 80 char 255 int 1 file,
  1400. else table define 9 fields char 12 int 4 char 10 char 40 int 2 file
  1401. table copy %table to 9
  1402. record read 9 at %i
  1403. if @r9="" return
  1404. set $file @r9.1
  1405. table clear %table
  1406. table copy 9 to %table exclude @r9
  1407. table clear 9
  1408. return
  1409.  
  1410. ;
  1411. ;account setup dialog
  1412. ;
  1413.  
  1414. *setup
  1415. if $name="" $name='Enter Compuserve account number here'
  1416. if $phone="" $phone='Enter Compuserve phone number here'
  1417. if $pass<>"" perform decode, 
  1418. else $pass='Enter Compuserve password here'
  1419. if pos($downdir,":")=0 $downdir="Enter download directory here."
  1420. dialog (,,200,120) "Setup"
  1421.   message (2,10,55,10) 'Account:' 
  1422.   edittext (48,7,144,12) 144 ''  $name
  1423.   message (2,27,37,10) 'Password:'
  1424.   edittext (48,24,143,12) 143 '' $pass ;password
  1425.   message (2,44,57,10) 'Access #:'
  1426.   edittext (47,41,144,12) 144 '' $phone 
  1427.   message (2,61,54,10) 'Download to:'
  1428.   edittext (47,58,144,12) 144 '' $downdir
  1429.   button (48,78,64,11) "&Communications" perform dyna_set, settings communications, settings modem, save, goto setup
  1430.   button (120,78,64,11) "&File Transfers" perform dyna_set, settings texttransfers, settings binarytransfers, save, goto setup
  1431.   button (10,100,40,14) default '&Okay' resume
  1432.   button (150,100,40,14) cancel 'Cance&l' dialog cancel, perform encode, return
  1433. dialog end
  1434. wait resume
  1435.  
  1436.    $name=edittext(1)
  1437.    $pass=edittext(2)
  1438.    perform encode
  1439.    $phone=edittext(3)
  1440.    $downdir=trim(edittext(4))
  1441.    %l=length($downdir)
  1442.    if substr($downdir,%l,1)<>"\" set $downdir $downdir | "\"
  1443.    perform saveall
  1444.    return
  1445.  
  1446. *dyna_set
  1447. $name=edittext(1)
  1448. $pass=edittext(2)
  1449. perform encode
  1450. $phone=edittext(3)
  1451. $downdir=edittext(4)
  1452. dialog cancel
  1453. return
  1454.  
  1455. ;
  1456. ;routine to create account settings file
  1457. ;
  1458.  
  1459. *saveall
  1460. file delete "account.inf"
  1461. table define 11 TEXT "account.inf"
  1462. set @r11 $name
  1463. record write 11
  1464. set @r11 $pass
  1465. record write 11
  1466. set @r11 $phone
  1467. record write 11
  1468. set @r11 str(%mail)
  1469. record write 11
  1470. set @r11 str(%files)
  1471. record write 11
  1472. set @r11 str(%messages)
  1473. record write 11
  1474. set @r11 str(%send)
  1475. record write 11
  1476. set @r11 str(%upload)
  1477. record write 11
  1478. set @r11 $downdir
  1479. record write 11
  1480. set @r11 str(%sec0) 
  1481. record write 11
  1482. set @r11 str(%sec1)
  1483. record write 11
  1484. set @r11 str(%sec2)
  1485. record write 11
  1486. set @r11 str(%sec3)
  1487. record write 11
  1488. set @r11 str(%sec4)
  1489. record write 11
  1490. set @r11 str(%sec5)
  1491. record write 11
  1492. set @r11 str(%sec6)
  1493. record write 11
  1494. set @r11 str(%sec7)
  1495. record write 11
  1496. set @r11 str(%sec8)
  1497. record write 11
  1498. set @r11 str(%lib0)
  1499. record write 11
  1500. set @r11 str(%lib1)
  1501. record write 11
  1502. set @r11 str(%lib2)
  1503. record write 11
  1504. set @r11 str(%lib3)
  1505. record write 11
  1506. set @r11 str(%lib4)
  1507. record write 11
  1508. set @r11 str(%oldlist)
  1509. record write 11
  1510. table close 11
  1511. table clear 11
  1512. return
  1513.  
  1514. ;
  1515. ;password encode/decode routines
  1516. ;
  1517. *decode
  1518. return
  1519. ;set %pl num(substr($pass,1,2))
  1520. ;set $pass substr($pass,3,%pl)
  1521. ;set $pass decrypt($pass,"PASS")
  1522. ;return
  1523.  
  1524. *encode
  1525. return
  1526. ;set $pass encrypt($pass,"PASS")
  1527. ;set $pl str(length($pass))
  1528. ;set $pass $pl | $pass
  1529. ;return
  1530.  
  1531.  
  1532. *about
  1533. dialog (,,156,170) 'PCContact/Windows 0.96'
  1534. message (12,8,132,72) "    PCContact/Windows was written by Paul Bonner as part of PC/Computing's on-going Windows Project series. The entire project was produced using Future Soft Engineering's Dynacomm."
  1535. message (12,53,132,72)"    The PCContact/Windows script is intended for demonstration purposes only. No warranty is made concerning its fitness for any other purpose." 
  1536. message(12,100,132,72)"    For more information about Dynacomm, visit the Future Soft Engineering section of the WINAPA forum by typing 'GO CIS:WINAPA' at any Compuserve prompt."
  1537. button (60,150,,) "Okay" resume
  1538. dialog end
  1539. wait resume
  1540. dialog cancel
  1541. return
  1542.  
  1543.